home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 January / Ahoy_Magazine_86-01_1986_Double_L.d64 / c-64_128 babbler (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  637 b   |  25 lines
  1. 10 rem **** ahoy! speaks ****
  2. 20 rem ***c-64/128 version***
  3. 30 rem **by morton kevelson**
  4. 120 print"[147]":poke53280,0:poke53281,6:poke646,1
  5. 125 print"please read instructions in magazine..."
  6. 130 drt=56577:ddr=56579:dfl=56578:dcb=56576:rem c-64 user port
  7. 140 poke ddr,127:rem set drt for output
  8. 150 a=peek(dfl)or 4
  9. 160 poke(dfl),a:rem set bit 2 for input
  10. 165 gosub 3110
  11. 2000 rem**speak!!**
  12. 2010 for i=1 to 17
  13. 2015 read x
  14. 2020 if peek(drt)>127 goto 2020
  15. 2030 poke drt,x
  16. 2035 gosub3100
  17. 2040 next i:end
  18. 3100 poke dcb,peek(dcb)and251:rem set control line low, utter allophone
  19. 3110 poke dcb,peek(dcb)or4:rem set control line high, ready for next
  20. 3120 return
  21. 3999 rem allophone data
  22. 4000 data 23,27,5,3
  23. 4010 data 8,24,16,24,33,58,3
  24. 4020 data 25,31,43,52,55,3
  25.